home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / CoolMacStacks.sea / Cool Mac Stacks / Utilities / Say The Numbers / card_3051.txt < prev    next >
Text File  |  1991-12-17  |  3KB  |  112 lines
  1. -- card: 3051 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2599
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 02
  10. -- high flags: 4000
  11. -- rect: left=88 top=18 right=43 bottom=215
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 14
  17. -- style flags: 0
  18. -- line height: 18
  19. -- part name: testField
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: A002
  25. -- rect: left=10 top=13 right=43 bottom=74
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 3
  30. -- text size: 14
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Test >>
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   if the hilite of cd btn "Beep at non-numeric Characters" is false then
  37.     sayTheNumbers cd fld testField
  38.   else
  39.     sayTheNumbers cd fld testField, beep
  40.   end if
  41. end mouseUp
  42.  
  43.  
  44.  
  45.  
  46. -- part 4 (button)
  47. -- low flags: 00
  48. -- high flags: A002
  49. -- rect: left=312 top=13 right=43 bottom=376
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 3
  54. -- text size: 14
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: About
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   set the visible of cd fld about to not the visible of cd fld about
  61. end mouseUp
  62.  
  63.  
  64.  
  65.  
  66. -- part 6 (button)
  67. -- low flags: 00
  68. -- high flags: E005
  69. -- rect: left=11 top=56 right=70 bottom=189
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 3
  74. -- text size: 9
  75. -- style flags: 0
  76. -- line height: 12
  77. -- part name: Beep at non-numeric Characters
  78.  
  79.  
  80. -- part 5 (field)
  81. -- low flags: 85
  82. -- high flags: 2007
  83. -- rect: left=4 top=2 right=70 bottom=309
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 0
  87. -- font id: 3
  88. -- text size: 9
  89. -- style flags: 0
  90. -- line height: 12
  91. -- part name: about
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   hide me
  95. end mouseup
  96.  
  97.  
  98.  
  99. -- part contents for card part 1
  100. ----- text -----
  101. (123)456-7890h
  102.  
  103. -- part contents for card part 5
  104. -- note: style data is present
  105. ----- text -----
  106. Say The Numbers is a stack that does one thing. It says numbers. Why would you want a stack to do that? Well, in HyperCard 2.0, you now have the ability to use the capabilities and resources of a stack by including the command start using <stackName>. So if you ever wanted to have your address book, or any other stack read numbers back to you when you tupe them in, add the HyperTalk handler start using stack "Say The Numbers"  and then use sayTheNumbers <the field or variable you want it to say> where you need it (for example, on closeField). You may also add a second argument to beep for nonNumbers (except for spaces, dashes and parentheses, common parts of phone numbers). If you leave it out, then saynumbers will merely skip over the non-numbers. In other words sayTheNumbers bg fld foneNumber,doABeep will beep for non-numbers; sayTheNumbers bg fld foneNumber will skip over non-numbers. This stack and my voice are freeware. Have fun!
  107. David Drucker
  108. CIS: 76060,3104
  109. AppleLink: DDRUCKER
  110. America Online: DDRUCKER
  111. GEnie: D.Drucker
  112. InterNet: ddrucker@world.std.com